home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 7 / Night Owl Shareware (NOPV7)(Night Owl Publisher Inc.)(1992).bin / 038a / bash1_12.arj / BASH1-12.TAR / bash-1.12 / builtins / command.def < prev    next >
Text File  |  1991-11-20  |  4KB  |  143 lines
  1. This file is command.def, from which is created command.c.
  2. It implements the builtin "command" in Bash.
  3.  
  4. Copyright (C) 1987, 1989, 1991 Free Software Foundation, Inc.
  5.  
  6. This file is part of GNU Bash, the Bourne Again SHell.
  7.  
  8. Bash is free software; you can redistribute it and/or modify it under
  9. the terms of the GNU General Public License as published by the Free
  10. Software Foundation; either version 1, or (at your option) any later
  11. version.
  12.  
  13. Bash is distributed in the hope that it will be useful, but WITHOUT ANY
  14. WARRANTY; without even the implied warranty of MERCHANTABILITY or
  15. FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  16. for more details.
  17.  
  18. You should have received a copy of the GNU General Public License along
  19. with Bash; see the file COPYING.  If not, write to the Free Software
  20. Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  21.  
  22. $PRODUCES command.c
  23.  
  24. $BUILTIN command
  25. $FUNCTION command_builtin
  26. $SHORT_DOC command [-p] [command [arg ...]]
  27. Runs COMMAND with ARGS ignoring shell functions.  If you have a shell
  28. function called `ls', and you wish to call the command `ls', you can
  29. say "command ls".  If the -p option is given, a default value is used
  30. for PATH that is guaranteed to find all of the standard utilities.
  31. $END
  32.  
  33. #include "../shell.h"
  34.  
  35. static void restore_path ();
  36. static char *get_standard_path ();
  37.  
  38. /* Run the commands mentioned in LIST without paying attention to shell
  39.    functions. */
  40. int
  41. command_builtin (list)
  42.      WORD_LIST *list;
  43. {
  44.   int result;
  45.   int use_standard_path = 0;
  46.   char *old_path;
  47.  
  48.   while (list)
  49.     {
  50.       if (strcmp (list->word->word, "-p") == 0)
  51.     {
  52.       use_standard_path = 1;
  53.       list = list->next;
  54.     }
  55.       else if (strcmp (list->word->word, "--") == 0)
  56.     {
  57.       list = list->next;
  58.       break;
  59.     }
  60.       else if (*list->word->word == '-')
  61.     {
  62.       bad_option (list->word->word);
  63.       return (EXECUTION_FAILURE);
  64.     }
  65.       else
  66.     break;
  67.     }
  68.  
  69.   if (!list)
  70.     return (EXECUTION_SUCCESS);
  71.  
  72.   begin_unwind_frame ("command_builtin");
  73.  
  74.   /* We don't want this to be reparsed (consider command echo 'foo &'), so
  75.      just make a simple_command structure and call execute_command with it. */
  76.   {
  77.     COMMAND *command;
  78.     extern COMMAND *make_bare_simple_command ();
  79.     extern WORD_LIST *copy_word_list ();
  80.     extern void dispose_command ();
  81.  
  82.     if (use_standard_path)
  83.       {
  84.     char *standard_path;
  85.  
  86.     old_path = get_string_value ("PATH");
  87.     if (old_path)
  88.       old_path = savestring (old_path);
  89.     else
  90.       old_path = savestring ("");
  91.     add_unwind_protect ((Function *)restore_path, old_path);
  92.  
  93.     standard_path = get_standard_path ();
  94.     bind_variable ("PATH", standard_path);
  95.     free (standard_path);
  96.       }
  97.     command = make_bare_simple_command ();
  98.     command->value.Simple->words = (WORD_LIST *)copy_word_list (list);
  99.     command->value.Simple->redirects = (REDIRECT *)NULL;
  100.     command->flags |= (CMD_NO_FUNCTIONS | CMD_INHIBIT_EXPANSION);
  101.     command->value.Simple->flags |= (CMD_NO_FUNCTIONS | CMD_INHIBIT_EXPANSION);
  102.     add_unwind_protect ((char *)dispose_command, command);
  103.     result = execute_command (command);
  104.   }
  105.  
  106.   run_unwind_frame ("command_builtin");
  107.  
  108.   return (result);
  109. }
  110.  
  111. /* Restore the value of the $PATH variable after replacing it when
  112.    executing `command -p'. */
  113. static void
  114. restore_path (var)
  115.      char *var;
  116. {
  117.   bind_variable ("PATH", var);
  118.   free (var);
  119. }
  120.  
  121. /* Return a value for PATH that is guaranteed to find all of the standard
  122.    utilities.  This uses Posix.2 configuration variables, if present.  It
  123.    uses a value defined in config.h as a last resort. */
  124. static char *
  125. get_standard_path ()
  126. {
  127. #if defined (_CS_PATH) && !defined (HPUX_70)
  128.   char *p;
  129.   size_t len;
  130.  
  131.   len = (long) confstr (_CS_PATH, (char *)NULL, (size_t)0);
  132.   p = xmalloc ((int)len + 2);
  133.   (void) confstr (_CS_PATH, p, len);
  134.   return (p);
  135. #else /* !_CSPATH || HPUX_70 */
  136. #  if defined (CS_PATH)
  137.   return (savestring (CS_PATH));
  138. #  else
  139.   return (savestring (STANDARD_UTILS_PATH));
  140. #  endif /* !CS_PATH */
  141. #endif /* !_CS_PATH || HPUX_70 */
  142. }
  143.